home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1990 / Gato.s < prev    next >
Text File  |  1992-03-10  |  2KB  |  68 lines
  1. ;
  2. ;    Warrior: Gato
  3. ;  File name: gato.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Cristobal Jimenez Lopez
  7. ;
  8. beg            dat     59
  9. fire           dat     0
  10. beg1           dat     25
  11. start          mov     care   loop2
  12.                mov     recons switch
  13.                spl     trap
  14.                mov     #810   forward
  15.                mov     #-810  back
  16.                mov     #25    beg1
  17. make           mov     @beg1  <forward
  18.                mov     @beg1  <back
  19.                djn     make   beg1
  20. test           mov     #810    forward
  21.                mov     #-810  back
  22.                mov     #25    beg1
  23. compare        cmp     <forward <back
  24.                jmp     alarm
  25. label          cmp     @beg1  @forward
  26.                jmp     repair
  27. salto          djn     compare beg1
  28. loop2          jmp     test
  29. alarm          mov     count   switch
  30.                mov     #59     beg
  31.                mov     #-2000  forward
  32. copy           mov     @beg    <forward
  33.                djn     copy    beg
  34.                add     #2      forward
  35.                jmp     @forward
  36. repair         mov     @forward  @beg1
  37.                mov     forward loop2
  38. back           jmp     salto
  39. forward        jmp     1
  40. recons         jmp     -5
  41. trap           mov     #800    desjmp
  42. loop1          add     #10     desjmp
  43.                jmz     loop1   @desjmp
  44.                sub     desjmp  jmp1
  45.                add     #1      jmp1
  46.                mov     jmp1    @desjmp
  47. switch         jmp     loop1 
  48.                mov     count   alarm
  49.                mov     #0      beg1
  50.                mov     beg1    5000
  51. dis            mov     beg1    <fire
  52.                mov     count   @desbom
  53.                add     #5      desbom
  54.                jmn     ajust    4996
  55. desbom         jmp     dis     #25
  56. ajust          mov     #25     desbom
  57. desjmp         jmp     -7
  58.                mov     forward switch
  59.                djn     split   count
  60. split          spl     -2
  61.                mov     beg1    <fire
  62.                mov     count alarm
  63.                jmn     split   count
  64.                mov     count   split
  65. count          dat     64
  66. jmp1           jmp     @jmp1
  67. care           jmp     -8
  68.                end     start